home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™94 / Talks & Papers / Timothy Knox / yerk 3.66 / Asm source / buildops < prev    next >
Text File  |  1994-06-24  |  687b  |  28 lines
  1. \ Build Ops                 Reese Warner                    4/85
  2.  
  3. 50 dictionary operands
  4.  
  5. : BuildOps      { \ opPtr -- }
  6.     query: topfile drop
  7.     BEGIN
  8.         word" count put: token
  9.         heap> operand -> opPtr
  10.         @word number drop setMode: opPtr  \ get mode
  11.         @word number drop setReg: opPtr   \ get register
  12.         opPtr token enter: operands
  13.         query: topfile
  14.     UNTIL
  15. ;
  16.  
  17. : LoadOps       { addr len -- }
  18.     new: loadfile addr len name: topFile \ open "operands"
  19.     open: topFile
  20.     0<
  21.     IF
  22.         206 asmError                     \ check for bad file
  23.     THEN
  24.     buildops
  25.     close: topFile drop                  \ close operands
  26.     remove: loadFile
  27. ;
  28.